# StartTCL: n
######################
# UnlearnNPC by Rama #
######################
#

namespace eval ::Profi {}
namespace eval ::Profi2 {}
namespace eval ::Profi3 {}

proc ::Profi::GossipHello { npc player } {
 set option0 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get blacksmithing]]\""
 set option1 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get alchemy]]\""
 set option2 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get enchanting]]\""
 set option3 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get herbalism]]\""
 set option4 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get leatherworking]]\""
 set option5 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get mining]]\""
 set option6 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get skinning]]\""
 set option7 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get tailoring]]\""
 set option8 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get engineering]]\""
 set option9 "text 0 \"[::Texts::Get exit_option]\""
 ::SendGossip $player $npc $option0 $option1 $option2 $option3 $option4 $option5 $option6 $option7 $option8 $option9
 ::Emote $npc 66
 ::Emote $player 66
}

proc ::Profi::GossipSelect { npc player option } {
 switch $option {
 0 {
 set sname [::Texts::Get blacksmithing]
 if { [ ::GetSkill $player 164 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -7500 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26000
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 1 {
 set sname [::Texts::Get alchemy]
 if { [ ::GetSkill $player 171 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -7500 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26001
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 2 {
 set sname [::Texts::Get enchanting]
 if { [ ::GetSkill $player 333 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -7500 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26002
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 3 {
 set sname [::Texts::Get herbalism]
 if { [ ::GetSkill $player 182 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -7500 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26003
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 4 {
 set sname [::Texts::Get leatherworking]
 if { [ ::GetSkill $player 165 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -7500 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26004
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 5 {
 set sname [::Texts::Get mining]
 if { [ ::GetSkill $player 186 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -7500 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26005
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 6 {
 set sname [::Texts::Get skinning]
 if { [ ::GetSkill $player 393 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -7500 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26006
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 7 {
 set sname [::Texts::Get tailoring]
 if { [ ::GetSkill $player 197 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -7500 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26007
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 8 {
 set sname [::Texts::Get engineering]
 if { [ ::GetSkill $player 202 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -7500 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26008
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 9 { ::SendGossipComplete $player }
 }
}

proc ::Profi2::GossipHello { npc player } {
 set option0 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get first_aid]]\""
 set option1 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get cooking]]\""
 set option2 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get fishing]]\""
 set option3 "text 0 \"[::Texts::Get exit_option]\""
 ::SendGossip $player $npc $option0 $option1 $option2 $option3
 ::Emote $npc 66
 ::Emote $player 66
}

proc ::Profi2::GossipSelect { npc player option } {
 switch $option {
 0 {
 set sname [::Texts::Get first_aid]
 if { [ ::GetSkill $player 129 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26009
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 1 {
 set sname [::Texts::Get cooking]
 if { [ ::GetSkill $player 185 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26010
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 2 {
 set sname [::Texts::Get fishing]
 if { [ ::GetSkill $player 356 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26011
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 3 { ::SendGossipComplete $player }
 }
}

proc ::Profi3::GossipHello { npc player } {
 set option0 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get horse_ride]]\""
 set option1 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get wolf_ride]]\""
 set option2 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get tiger_ride]]\""
 set option3 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get ram_ride]]\""
 set option4 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get raptor_ride]]\""
 set option5 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get undead_horse_ride]]\""
 set option6 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get kodo_ride]]\""
 set option7 "text 2 \"[::Texts::Get need_unlearn [::Texts::Get mechanostrider_ride]]\""
 set option8 "text 0 \"[::Texts::Get exit_option]\""
 ::SendGossip $player $npc $option0 $option1 $option2 $option3 $option4 $option5 $option6 $option7 $option8
 ::Emote $npc 66
 ::Emote $player 66
}

proc ::Profi3::GossipSelect { npc player option } {
 switch $option {
 0 {
 set sname [::Texts::Get horse_ride]
 if { [ ::GetSkill $player 148 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26012
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 1 {
 set sname [::Texts::Get wolf_ride]
 if { [ ::GetSkill $player 149 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26013
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 2 {
 set sname [::Texts::Get tiger_ride]
 if { [ ::GetSkill $player 150 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26014
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 3 {
 set sname [::Texts::Get ram_ride]
 if { [ ::GetSkill $player 152 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26015
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 4 {
 set sname [::Texts::Get raptor_ride]
 if { [ ::GetSkill $player 533 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26016
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 5 {
 set sname [::Texts::Get undead_horse_ride]
 if { [ ::GetSkill $player 554 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26017
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 6 {
 set sname [::Texts::Get kodo_ride]
 if { [ ::GetSkill $player 713 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26018
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 7 {
 set sname [::Texts::Get mechanostrider_ride]
 if { [ ::GetSkill $player 553 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_knowskill $sname]
 ::SendGossipComplete $player
 return
 } elseif { [ ::ChangeMoney $player -5000 ] == 0 } {
 ::Say $npc 0 [::Texts::Get no_enoughmoney $sname]
 ::SendGossipComplete $player
 return
 } else {
 ::LearnSpell $player 26019
 ::Say $npc 0 [::Texts::Get unlearned $sname]
 ::SendGossipComplete $player
 return
 }
 }
 8 { ::SendGossipComplete $player }
 }
}
